home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / graphics / show42a.arj / PROMOTE1.SHW < prev    next >
Text File  |  1994-02-01  |  11KB  |  399 lines
  1. ;*********************************************************************;
  2. ; Scriptname.:  PROMOTE1.SHW                                          ;
  3. ; Date.......:  1st. Feb. 1994, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW v. 4.2A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ;Other files:
  8. ;************
  9. ; sound1.shw, scroll1.shw                  ; Tight loop files
  10. ; promote1.gra, chess.pcx, hugo1.gif       ; Graphic files
  11. ; entrance.snd                             ; DataShow Music file
  12. ; goodmorn.wav                             ; Wave Music file
  13. ; show1.scr - show8.scr                    ; Captured screen files
  14.  
  15. SET ESCAPEKEY 27                           ; Script can be stopped any time
  16. SET TIMEOUT 10                             ; Seconds to wait for keyboard
  17.  
  18. VARIABLE CREATE counttimes TYPE NUMBER 1   ; Counts number of runs
  19. IF counttimes NE 1 DO JUMPMARK 10          ; Jump if not 1st run
  20.  
  21. VARIABLE CREATE screentype TYPE NUMBER 0   ; Used to determine video mode
  22. SCREEN CLEAR
  23.  
  24. ;Check the graphics adapter
  25. IF GRAPH VGA DO
  26.    MATH screentype = 3
  27. END
  28. IF GRAPH EGA DO
  29.    MATH screentype = 2
  30. END
  31. IF GRAPH CGA DO
  32.    MATH screentype = 1
  33. END
  34. IF screentype LE 1 DO
  35.    WRITE "THIS PRESENTATION IS MADE FOR EGA/VGA SCREENS!"
  36.    GOXY 1 3
  37.    WRITE "IT CAN BE RUN ON YOUR SCREEN BUT SOME FEATURES ARE LIMITED..."
  38.    GOXY 1 5
  39.    WAIT "PUSH ANY KEY..."
  40. END
  41.  
  42. ;Check the sound capabilities
  43. ;VARIABLE CREATE soundtype TYPE NUMBER 0   ; Used to determine sound mode
  44. ;IF SOUND ADLIB DO
  45. ;   MATH soundtype = 1
  46. ;END
  47. ;IF SOUND BLAST DO
  48. ;   MATH soundtype = 2
  49. ;END
  50. ;Set the sound capabilities for MUSIC PROCESS output
  51. ;IF soundtype EQ 1 DO
  52. ;   INSTALL SOUND ADLIB
  53. ;END
  54. ;IF soundtype EQ 2 DO
  55. ;   INSTALL SOUND BLAST
  56. ;END
  57.  
  58. MARK 10                                    ; Jump here if not 1st run
  59.  
  60. ;Make graphics at beginning of this script
  61. IF screentype GE 2 DO
  62.    SET GRAPHICS EGA1
  63. END
  64. IF screentype EQ 1 DO
  65.    SET GRAPHICS CGA
  66. END
  67.  
  68. COLOR ATTRIBUTE 31             ; Set to blue background, white foreground
  69. COLOR BACKGROUND 1             ; Set the background to blue
  70. COLOR FOREGROUND 15            ; Set the foreground to white
  71. SCREEN CLEAR
  72.  
  73. SET DELAYFACTOR 5
  74. SET SHADOW 79
  75.  
  76. GOXY 28 2 WRITE "Welcome to a presentation of"
  77.  
  78. EFFECT TEXTTYPE 3 6
  79. GOXY 28 3 WRITE "DataShow"
  80. EFFECT TEXTTYPE 0 1
  81.  
  82. GOXY 10 12 DRAW LINE 60
  83. GOXY 10 20 DRAW LINE 60
  84.  
  85. GOXY 1 14
  86.  
  87. SPEAK "W-E-L-L-K-U-M-E"        ; Talk via system speaker
  88. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  89.  
  90. DEFINE
  91. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  92. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  93. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  94. //    //  //    //    //     //    //        //  //    //  //   //   // //  //
  95. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  96. END
  97.  
  98. SET DELAYFACTOR 0              ; Set waiting period to zero
  99.  
  100. MOTION LEFT 0                  ; Move defined area across screen
  101. MOTION RIGHT 79                ; Move defined area partly back on screen
  102.  
  103. EFFECT TEXTTYPE 1 6
  104. GOXY 30 20 WRITE "V. 4.2A"
  105. EFFECT TEXTTYPE 0 1
  106. WAIT 3
  107.  
  108. SET SHADOW OFF
  109. IF screentype NE 0 DO
  110.    SET GRAPHICS OFF
  111. END
  112. SET CURSOR OFF
  113.  
  114. SHOW SCREEN "show1.scr" TXT    ; Show screen saved with CAPTURE
  115.  
  116. MUSIC PROCESS "entrance.snd" SND
  117. WAIT 1
  118.  
  119. COLOR BACKGROUND 3             ; Set the background to cyan
  120. SCREEN CLEAR
  121.  
  122. GOXY 1 20
  123. WINDOW 79 4                    ; Set part of screen as window
  124. COLOR BACKGROUND 7
  125. SCREEN CLEAR                   ; Clear only the current window area
  126.  
  127. GOXY 1 1
  128. WINDOW 79 24                   ; Set back to all of the screen
  129.  
  130. COLOR ATTRIBUTE 63             ; Set to cyan background, white foreground
  131.  
  132. GOXY 6 2
  133. DRAW BOX 70 14
  134.  
  135. SET CURSOR ON
  136. SET DELAYFACTOR 5
  137.  
  138. GOXY 10 4
  139. WRITE "Together with the resident program CAPTURE, you can create pre-"
  140. GOXY 10 6
  141. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  142. GOXY 10 8
  143. WRITE "show them from DATASHOW like this screen to be shown here......"
  144. WAIT 2
  145.  
  146. SCREEN GET                     ; Save the current screen to a buffer
  147. SET CURSOR OFF
  148. SHOW SCREEN "show2.scr" TXT    ; Show screen saved with CAPTURE
  149. WAIT 2
  150. SPEAK "C-A-P-T-U-R-E"
  151. WAIT 1
  152. SPEAK "AE"
  153. SPEAK "S-K-R-EE-EE-N"
  154. WAIT 2
  155. SCREEN WIPE RIGHT
  156. SCREEN PUT                     ; Retrieve saved screen from the buffer
  157. SET CURSOR ON
  158.  
  159. GOXY 10 10
  160. WRITE "It is a simple task  to create scripts  and have them  shown on"
  161. GOXY 10 12
  162. WRITE "the screen  with  incredible flexibility.  Scripts are ordinary"
  163. GOXY 10 14
  164. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  165.  
  166. SPEAK "P-U-S-H"
  167. WAIT 1
  168. SPEAK "A-N-I"
  169. WAIT 1
  170. SPEAK "K-E-I"
  171.  
  172. GOXY 10 20
  173. WAIT "Push any key"            ; Wait for any key to be pushed or TIMEOUT
  174.  
  175. SET CURSOR OFF
  176. COLOR ATTRIBUTE 0
  177.  
  178. SHOW SCREEN "show3.scr" TXT    ; Show screen saved with CAPTURE
  179. WAIT 4
  180. SHOW SCREEN "show4.scr" TXT    ; Show screen saved with CAPTURE
  181. WAIT 4
  182. SHOW SCREEN "show5.scr" TXT    ; Show screen saved with CAPTURE
  183. WAIT 4
  184. EFFECT GLITTER
  185. WAIT 1
  186.  
  187. SCREEN CLEAR
  188. GOXY 10 4
  189. WRITE "It is also a simple task to create several slides and have them"
  190. GOXY 10 6
  191. WRITE "shown on the screen with incredible flexibility and control."
  192. GOXY 10 9
  193. WRITE "Here the easy method to make slides is shown..."
  194. WAIT 3
  195.  
  196. SHOW SCREEN "show6.scr" TXT    ; Show screen saved with CAPTURE
  197. WAIT 4
  198.  
  199. SET TEXTSOUND ON
  200. COLOR BACKGROUND 4             ; Set the background to red
  201. SCREEN CLEAR
  202. GOXY 10 4
  203. WRITE "You can also write your scripts, slides or graphics to a printer!"
  204. WAIT 3
  205.  
  206. SHOW SCREEN "show7.scr" TXT    ; Show screen saved with CAPTURE
  207. WAIT 2
  208.  
  209. COLOR BACKGROUND 3             ; Set the background to cyan
  210. GOXY 13 5 WRITE "PROMOTE1.SHW"
  211. WAIT 3
  212.  
  213. COLOR ATTRIBUTE 63
  214. SET TEXTSOUND OFF
  215. SET DELAYFACTOR 0
  216.  
  217. SCREEN CLEAR
  218. GOXY 10 10 DRAW BOX 32 2
  219. GOXY 11 11 WRITE "You can create single sounds..."
  220.  
  221. VARIABLE CREATE controlloop TYPE NUMBER 1  ; Variable to control loops
  222.  
  223. MARK 1                         ; Create a mark that can be jumped to
  224. VARIABLE CREATE soundloop TYPE NUMBER 1    ; Variable to control sound
  225. DO "sound1.shw"                ; Call another (sub) program
  226. VARIABLE RELEASE soundloop     ; Clean up after us, for next time round
  227. EFFECT SCROLL DOWN
  228. IF controlloop EQ 3 DO JUMPMARK 2
  229. VARIABLE INCREASE controlloop 1
  230. JUMPMARK 1
  231. MARK 2                         ; Create a mark that can be jumped to
  232.  
  233. VARIABLE RELEASE controlloop   ; Clean up after us, for next time round
  234. WAIT 1
  235.  
  236. GOXY 20 8 WRITE "Or play songs, that you write yourself!"
  237. GOXY 20 9 DRAW LINE 38
  238. MUSIC PROCESS "entrance.snd" SND
  239.  
  240. WAIT 1
  241. GOXY 20 19 WRITE "Or play sounds in the WAV (windows) format!"
  242. GOXY 20 20 DRAW LINE 42
  243. MUSIC PROCESS "beback.wav" WAV 11000
  244. WAIT 3
  245.  
  246. COLOR BACKGROUND 2             ; Set the background to green
  247. SCREEN CLEAR
  248. GOXY 10 8
  249. WRITE "Besides this you can control a lot of things yourself.  You can"
  250. GOXY 10 10
  251. WRITE "draw your own pictures  or  develop your own logo  in DATASHOW."
  252. GOXY 10 12
  253. WRITE "For this purpose there is a menu for graphic drawing..."
  254. WAIT 6
  255.  
  256. SHOW SCREEN "show8.scr" TXT    ; Show screen saved with CAPTURE
  257. WAIT 4
  258.  
  259. SET DELAYFACTOR 5
  260. GOXY 26 12
  261. WINDOW 50 5
  262. SCREEN CLEAR
  263. COLOR FOREGROUND 1
  264. GOXY 26 12
  265. COLOR ATTRIBUTE 47             ; Set to green background, white foreground
  266. DRAW BOX 50 5
  267. GOXY 3 3 WRITE "By selecting F4 you can draw your own drawings,"
  268. GOXY 3 4 WRITE "and then display them from a script like this.."
  269. WAIT 4
  270. GOXY 1 1
  271. WINDOW 79 24
  272.  
  273. IF screentype LT 2 DO
  274.    SCREEN CLEAR
  275.    WRITE "Here a number of graphic screens would have been show.  - These"
  276.    GOXY 1 3
  277.    WRITE "screens require a high graphic mode and cannot be shown on your"
  278.    GOXY 1 5
  279.    WRITE "screen. This demonstration just skips them and continues..."
  280.    GOXY 1 7
  281.    WAIT "Push any key"
  282. END
  283. IF screentype LT 2 DO JUMPMARK 50
  284.  
  285. SET GRAPHICS EGA1
  286. SHOW SCREEN "promote1.gra" GRA
  287. WAIT 4
  288.  
  289. EFFECT GLITTER
  290.  
  291. SCREEN CLEAR
  292. GOXY 10 10 WRITE "You can also show GRAPHICs created from other programs."
  293. GOXY 10 12 WRITE "Here DataShow display a screen saved in the PCX format -"
  294. GOXY 10 14 WRITE "saved from e.g. the program PaintBrush (TM)."
  295. WAIT 4
  296. SHOW SCREEN "winscr.pcx" PCX
  297. WAIT 4
  298.  
  299. SET GRAPHICS EGA1
  300.  
  301. SCREEN CLEAR
  302. GOXY 10 10 WRITE "AND here DataShow displays a screen saved in the GIF"
  303. GOXY 10 12 WRITE "format; made by CompuServe; with a wealth of files."
  304. WAIT 4
  305. SHOW SCREEN "hugo1.gif" GIF
  306. WAIT 4
  307.  
  308. SCREEN CLEAR
  309. GOXY 2 8 WRITE "NOW DataShow ALSO displays screens"
  310. GOXY 2 10 WRITE "saved in the FLI format; That's all"
  311. GOXY 2 12 WRITE "kinds of animations."
  312. WAIT 4
  313. VARIABLE CREATE notimes TYPE NUMBER 0
  314. MATH notimes = 0
  315. MARK 99
  316. SHOW SCREEN "MRNUMO.FLI" FLI
  317. VARIABLE INCREASE notimes 1
  318. IF notimes EQ 3 DO JUMPMARK 100
  319. JUMPMARK 99
  320. MARK 100
  321. VARIABLE RELEASE notimes
  322. WAIT 2
  323.  
  324. SET GRAPHICS EGA1
  325.  
  326. COLOR BACKGROUND 1
  327. COLOR FOREGROUND 12
  328. SCREEN CLEAR
  329.  
  330. SET DELAYFACTOR 4
  331.  
  332. GOXY 5 8 WRITE "NEW in DataShow scripts:"
  333. GOXY 5 12 WRITE "Now you can also stay in graphics mode"
  334. GOXY 5 16 WRITE "- and most commands work as in text mode!"
  335. WAIT 3
  336.  
  337. COLOR BACKGROUND 6
  338. COLOR FOREGROUND 14
  339. SCREEN CLEAR
  340. GOXY 10 5
  341. WRITE "Remember to register DataShow. You'll then receive:"
  342. WAIT 2
  343. SET DELAYFACTOR 0
  344. COLOR FOREGROUND 11
  345. GOXY 12 9
  346. WRITE "- A Runtime version called SHOWRUN for distribution of scripts"
  347. WAIT 3
  348. GOXY 12 11
  349. WRITE "- A Manual that can be printed on a printer for overview"
  350. WAIT 3
  351. GOXY 12 13
  352. WRITE "- A Utility package for making more music files"
  353. WAIT 3
  354. GOXY 12 15
  355. WRITE "- And more music and graphics files"
  356. WAIT 3
  357. COLOR FOREGROUND 14
  358. GOXY 10 19
  359. WRITE "See the NOTES.TXT ascii file for further information!"
  360. WAIT 4
  361.  
  362. SET GRAPHICS OFF
  363.  
  364. MARK 50                        ; Jump to here if insufficient graphics
  365.  
  366. VARIABLE CREATE COUNTTIMES TYPE NUMBER 1
  367. DO "scroll1.shw"               ; Call another (sub) program
  368.  
  369. COLOR FOREGROUND 15
  370. SET SHADOW 2
  371.  
  372. GOXY 1 8 WRITE "This was run number: "+counttimes
  373. SPEAK counttimes
  374. WAIT 1
  375. SPEAK "T-I-M-E-S"
  376. WAIT 1
  377.  
  378. GOXY 10 11
  379. WRITE "Now this presentation starts over again, but you can stop it at"
  380. GOXY 10 13
  381. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  382. GOXY 10 15
  383. WRITE "you can try all the marvellous things yourself!  Just type SHOW"
  384. GOXY 10 17
  385. WRITE "at the operating system prompt, and you can try out DataShow."
  386. WAIT 1
  387.  
  388. GOXY 10 20 WRITE "That's all folks..."
  389. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  390. SET SHADOW OFF
  391. WAIT 6
  392.  
  393. EFFECT GLITTER
  394. SET CURSOR ON
  395.  
  396. VARIABLE INCREASE counttimes 1
  397.  
  398. CONTINUE
  399.